home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / resizer / resizef.pas < prev    next >
Pascal/Delphi Source File  |  1996-04-08  |  2KB  |  68 lines
  1. {*---------------------------------------------------------------------
  2.  * Program: Resizer Test
  3.  * Author:  Kevin C. Dorff
  4.  * Date:    July 14, 1995
  5.  *
  6.  * This is a VERY simple program. One form, several controls on that
  7.  * form, and a function call in the "OnResize" event to the component
  8.  * to initialize or perform the resize.
  9.  *
  10.  * Remember, this doesn't work with components inside TTabbedNotebook's
  11.  * (and maybe others).
  12.  *}
  13.  
  14. unit Resizef;
  15.  
  16. interface
  17.  
  18. uses
  19.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  20.   Forms, Dialogs, Resizer, StdCtrls, ExtCtrls, Buttons, TabNotBk, Tabs,
  21.   Mask;
  22.  
  23. type
  24.   TForm1 = class(TForm)
  25.     Resizer1: TResizer;
  26.     Button1: TButton;
  27.     BitBtn2: TBitBtn;
  28.     SpeedButton2: TSpeedButton;
  29.     MaskEdit1: TMaskEdit;
  30.     Bevel1: TBevel;
  31.     Panel1: TPanel;
  32.     Edit1: TEdit;
  33.     CheckBox1: TCheckBox;
  34.     GroupBox1: TGroupBox;
  35.     Button2: TButton;
  36.     Button3: TButton;
  37.     RadioGroup1: TRadioGroup;
  38.     RadioButton1: TRadioButton;
  39.     RadioButton2: TRadioButton;
  40.     RadioButton3: TRadioButton;
  41.     procedure FormResize(Sender: TObject);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  47.  
  48. var
  49.   Form1: TForm1;
  50.  
  51. implementation
  52.  
  53. {$R *.DFM}
  54.  
  55. {*---------------------------------------------------------------------
  56.  * This is the only function call in this program. It exists to
  57.  * demonstrate how to make the RESIZER control handle the resizing
  58.  * of the components on the form on which the RESIZER component
  59.  * is placed.
  60.  *}
  61.  
  62. procedure TForm1.FormResize(Sender: TObject);
  63. begin
  64.    Resizer1.ReSize(Sender);
  65. end;
  66.  
  67. end.
  68.